From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 29 Apr 2024 17:34:23 +0000 (-0400)
Subject: oclosure-tests.el: Adjust to new `interpreted-function` type
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~14^2~18^2~1734
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=7c835291dde79b39323a4a2623a14cc7564164cb;p=emacs.git

oclosure-tests.el: Adjust to new `interpreted-function` type

* test/lisp/emacs-lisp/oclosure-tests.el (oclosure-test-gen): Adjust to
new `interpreted-function` type.
(oclosure-test): Tweak accordingly.
---

diff --git a/test/lisp/emacs-lisp/oclosure-tests.el b/test/lisp/emacs-lisp/oclosure-tests.el
index 4760f403158..14c205631e0 100644
--- a/test/lisp/emacs-lisp/oclosure-tests.el
+++ b/test/lisp/emacs-lisp/oclosure-tests.el
@@ -32,7 +32,7 @@
 
 (cl-defmethod oclosure-test-gen ((_x compiled-function)) "#<bytecode>")
 
-(cl-defmethod oclosure-test-gen ((_x cons)) "#<cons>")
+(cl-defmethod oclosure-test-gen ((_x interpreted-function)) "#<interpreted-function>")
 
 (cl-defmethod oclosure-test-gen ((_x oclosure))
   (format "#<oclosure:%s>" (cl-call-next-method)))
@@ -63,7 +63,7 @@
     (should (cl-typep ocl1 'oclosure-test))
     (should (cl-typep ocl1 'oclosure))
     (should (member (oclosure-test-gen ocl1)
-                    '("#<oclosure-test:#<oclosure:#<cons>>>"
+                    '("#<oclosure-test:#<oclosure:#<interpreted-function>>>"
                       "#<oclosure-test:#<oclosure:#<bytecode>>>")))
     (should (stringp (documentation #'oclosure-test--fst)))
     ))